home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / imaginev3.2a.dms / imaginev3.2a.adf / Install < prev    next >
Text File  |  1995-03-20  |  2KB  |  92 lines
  1. (welcome "Welcome to the Imagine 3.2 upgrade.")
  2.  
  3. (set @app-name "Imagine 3.2")
  4. (set tmp @user-level)
  5. (user 2)
  6. (set inttype
  7.     (askchoice
  8.         (prompt "Please select the proper version of Imagine to install on your system.")
  9.         (help @askchoice-help)
  10.         (choices "Imagine 3.2 Floating Point Version" "Imagine 3.2 Integer Version")
  11.         (default 0)
  12.     )
  13. )
  14. (user tmp)
  15.  
  16.  
  17. (set instdir
  18.     (askdir
  19.         (prompt "Please enter your new Imagine 3.2 path.")
  20.         (help @askdir-help)
  21.         (default "Work:im32")
  22.         (newpath)
  23.         (disk)
  24.     )
  25. )
  26.  
  27.  
  28. (if ( = (exists instdir (noreq)) 1)   ;if selected path is a file...
  29.     ;then delete file and make dir
  30.     (
  31.         (set tmp @user-level)
  32.         (user 2)
  33.         (delete instdir 
  34.             (prompt ("\n\"%s\" exists as a file.\n\nDelete and continue?" instdir))
  35.             (help "\nSelecting \"Proceed\" will delete the existing file.  "
  36.                   "Selecting \"Abort Install\" will cancel operation.  "
  37.                   "Install again in either Intermediate or Expert level to change the installation path.")
  38.             (confirm) 
  39.             (optional "askuser")
  40.         )
  41.         (user tmp)
  42.         (makedir instdir
  43.             (prompt ("creating directory \"%s\"" instdir))
  44.             (help @makedir-help)
  45.             (infos)
  46.             (confirm)
  47.         )
  48.     )
  49.     ;else
  50.     (
  51.         (if ( = (exists instdir (noreq)) 0)   ;if selected path doesn't exist...
  52.             ;then create dir
  53.             (makedir instdir
  54.                 (prompt ("creating directory \"%s\"" instdir))
  55.                 (help @makedir-help)
  56.                 (infos)
  57.                 (confirm)
  58.             )
  59.             ;else directory is already there - use it.
  60.             ;()
  61.         )
  62.     )
  63. )
  64.  
  65. (if inttype
  66.     (
  67.         (askdisk sourcedrive
  68.             (prompt "\nPlease insert the disk labeled \"Imagine 3.2  Disk 2\" in any drive.")
  69.             (help @askdisk-help)
  70.             (dest "disk2")
  71.             (assigns)
  72.         )
  73.         (run ("disk2:lharc >nil: -n -m x disk2:im32_2.lzh \"%s/\"" instdir)
  74.             (prompt "\nDe-Arcing integer version program files...");
  75.         )
  76.     )
  77.     ;else
  78.     (
  79.         (askdisk sourcedrive
  80.             (prompt "\nPlease insert the disk labeled \"Imagine 3.2  Disk 1\" in any drive.")
  81.             (help @askdisk-help)
  82.             (dest "disk1")
  83.             (assigns)
  84.         )
  85.         (run ("disk1:lharc >nil: -n -m x disk1:im32_1.lzh \"%s/\"" instdir)
  86.             (prompt "\nDe-Arcing floating point version program files...");
  87.         )
  88.     )
  89. )
  90.  
  91. (set @default-dest instdir)
  92.